#!
$string = "I am a big big girl.";
$string =~ s/big/fat/g;
print $string,"\n";

$string = "testing";
$string =~ tr/et/ET/;
print $string,"\n";

$string = 'The/DT dollar/NN rose/VBD against/IN
the/DT Swiss/JJ and/CC French/JJ francs/NNS ./. ';
$string =~ s/\/.*?\s/ /g;
print $string,"\n";
